﻿<!-- #include file="mymin.asp" -->
<%
Call Head()
w "<card title='文章分类管理'><p>"

Dim rs,sql

set rs=server.createobject("adodb.recordset")
sql="select * from 74hu_list order by classid asc"
If key=2 And keyids<>"" Then sql="select * from 74hu_list where classid in ("&keyids&")order by classid asc"
rs.open sql,myconn,1,1
If Not rs.eof Then
	dim pagesize,page,count,i,pagecount
	PageSize=15
	Count=rs.recordcount
	page=getN("page",1)
	if page<1 then page=1
	pagecount=(count+pagesize-1)\pagesize
	if page>pagecount then page=pagecount
	rs.move(pagesize*(page-1))
	For i=1 To PageSize
		If rs.eof Then Exit For
		If key=0 Then Response.Write "[<a href=""wzclasscl.asp?sid="&sid&"&amp;id="&rs("classid")&""">管理</a>]"
%><%=i+(page-1)*PageSize%>.<a href="adminsmscl.asp?sid=<%=sid%>&amp;id=<%=rs("classid")%>"><%=noubb(left(rs("class"),10))%></a>[栏目ID<%=rs("classID")%>]<br/>
<%
		rs.moveNext
	Next
	w showPage("wzclass.asp", "", page, pageCount)
Else
	w "暂时没有文章栏目！"
end if

rs.close
set rs=nothing
%><br/>-----------
<%If key=0 Then%>
<br/><a href="tjwz.asp?sid=<%=sid%>">[添加分类]</a>
<%
End If
Call Last
%>